home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / VM.p < prev   
Encoding:
Text File  |  1993-11-22  |  810 b   |  34 lines  |  [TEXT/PJMM]
  1. unit VM;
  2.  
  3. interface
  4.  
  5.     function GetPhysical (var addresses: LogicalToPhysicalTable; var physicalEntryCount: Longint): OSErr;
  6.     inline
  7.         $241F,    {MOVE.L (A7)+,D2}
  8.         $2242,    {MOVEA.L D2,A1}
  9.         $2251,    {MOVEA.L (A1),A1}
  10.         $205F,    {MOVEA.L (A7)+,A0}
  11.         $7005,    {MOVEQ #$05,D0}
  12.         $A15C,    {_MemoryDispatch,A0}
  13.         $3E80,    {MOVE.W D0,(A7)}
  14.         $2242,    { MOVEA.L D2,A1}
  15.         $2288;    {MOVE.L A0,(A1)}
  16.  
  17.     function LockMemory (address: univ Ptr; count: Longint): OSErr;
  18.     inline
  19.         $225F,    {MOVEA.L (A7)+,A1}
  20.         $205F,    {MOVEA.L (A7)+,A0}
  21.         $7002,    {MOVEQ #$02,D0}
  22.         $A05C,    {_MemoryDispatch}
  23.         $3E80;    {MOVE.W D0,(A7)}
  24.  
  25.     function UnlockMemory (address: univ Ptr; count: Longint): OSErr;
  26.     inline
  27.         $225F,    {MOVEA.L (A7)+,A1}
  28.         $205F,    {MOVEA.L (A7)+,A0}
  29.         $7003,    {MOVEQ #$03,D0}
  30.         $A05C,    {_MemoryDispatch}
  31.         $3E80;    {MOVE.W D0,(A7)}
  32.  
  33. implementation
  34. end.